
#############################
# Item Information Curves
#############################

IIC1 <- itemInfoPlot(mEA_yes_pos, theta_range = c(-6, 6), legend = TRUE, title = "IIC Interested Positive Identity (EA)") +
  scale_color_brewer(palette = "YlGnBu") + 
  geom_line(linewidth = 1) +
  theme(text = element_text(size = 16),                    # Global text size
        axis.title = element_text(size = 16),              # Axis titles
        axis.text = element_text(size = 16),               # Axis numbers
        legend.text = element_text(size = 16),             # Legend labels
        legend.title = element_text(size = 16),            # Legend title
        plot.title = element_text(size = 16))              # Plot title

IIC2 <- itemInfoPlot(mCA_yes_pos, theta_range = c(-6, 6), legend = TRUE, title = "IIC Interested Positive Identity (CA)") +
  scale_color_brewer(palette = "YlGnBu") + 
  geom_line(linewidth = 1) +
  theme(text = element_text(size = 16),
        axis.title = element_text(size = 16),
        axis.text = element_text(size = 16),
        legend.text = element_text(size = 16),
        legend.title = element_text(size = 16),
        plot.title = element_text(size = 16))

IIC3 <- itemInfoPlot(mEA_yes_neg, theta_range = c(-6, 6), legend = TRUE, title = "IIC Interested Negative Identity (EA)") +
  scale_color_brewer(palette = "YlGnBu") + 
  geom_line(linewidth = 1) +
  theme(text = element_text(size = 16),
        axis.title = element_text(size = 16),
        axis.text = element_text(size = 16),
        legend.text = element_text(size = 16),
        legend.title = element_text(size = 16),
        plot.title = element_text(size = 16))

IIC4 <- itemInfoPlot(mCA_yes_neg, theta_range = c(-6, 6), legend = TRUE, title = "IIC Interested Negative Identity (CA)") +
  scale_color_brewer(palette = "YlGnBu") + 
  geom_line(linewidth = 1) +
  theme(text = element_text(size = 16),
        axis.title = element_text(size = 16),
        axis.text = element_text(size = 16),
        legend.text = element_text(size = 16),
        legend.title = element_text(size = 16),
        plot.title = element_text(size = 16))

IIC5 <- itemInfoPlot(mEA_no_pos, theta_range = c(-6, 6), legend = TRUE, title = "IIC Uninterested Positive Identity (EA)") +
  scale_color_brewer(palette = "YlGnBu") + 
  geom_line(linewidth = 1) +
  theme(text = element_text(size = 16),
        axis.title = element_text(size = 16),
        axis.text = element_text(size = 16),
        legend.text = element_text(size = 16),
        legend.title = element_text(size = 16),
        plot.title = element_text(size = 16))

IIC6 <- itemInfoPlot(mCA_no_pos, theta_range = c(-6, 6), legend = TRUE, title = "IIC Uninterested Positive Identity (CA)") +
  scale_color_brewer(palette = "YlGnBu") + 
  geom_line(linewidth = 1) +
  theme(text = element_text(size = 16),
        axis.title = element_text(size = 16),
        axis.text = element_text(size = 16),
        legend.text = element_text(size = 16),
        legend.title = element_text(size = 16),
        plot.title = element_text(size = 16))

IIC7 <- itemInfoPlot(mEA_no_neg, theta_range = c(-6, 6), legend = TRUE, title = "IIC Uninterested Negative Identity (EA)") +
  scale_color_brewer(palette = "YlGnBu") + 
  geom_line(linewidth = 1) +
  theme(text = element_text(size = 16),
        axis.title = element_text(size = 16),
        axis.text = element_text(size = 16),
        legend.text = element_text(size = 16),
        legend.title = element_text(size = 16),
        plot.title = element_text(size = 16))

IIC8 <- itemInfoPlot(mCA_no_neg, theta_range = c(-6, 6), legend = TRUE, title = "IIC Uninterested Negative Identity (CA)") +
  scale_color_brewer(palette = "YlGnBu") + 
  geom_line(linewidth = 1) +
  theme(text = element_text(size = 16),
        axis.title = element_text(size = 16),
        axis.text = element_text(size = 16),
        legend.text = element_text(size = 16),
        legend.title = element_text(size = 16),
        plot.title = element_text(size = 16))